pop3.el (pop3-open-server): Error messages are "-ERR".

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index e933a80199d41d071acb549fab490917ebf33de8..3038ef53ef4c9d187838037ed287a9aefd7c33b8 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2011-05-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * pop3.el (pop3-open-server): Error messages are "-ERR".
+
 2011-05-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * pop3.el (pop3-open-server): Upgrade opportunistically to STARTTLS.

diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el
index 3ca5cab76e137e3cf488a1ae008601ffa6acb99b..96b2ae17a5a3adfcb276b05556270fa7a98280ff 100644 (file)
--- a/lisp/gnus/pop3.el
+++ b/lisp/gnus/pop3.el
@@ -306,7 +306,7 @@ Returns the process associated with the connection."
                    (t
                     (or pop3-stream-type 'network)))
             :capability-command "CAPA\r\n"
-            :end-of-command "^\\.\r?\n\\|^\\+[A-Z]+ .*\n"
+            :end-of-command "^\\.\r?\n\\|^\\(-ERR\\|+OK \\).*\n"
             :success "^\\+OK.*\n"
             :return-list t
             :starttls-function